home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / programm.ing / gfa / procdure.lzh / FUNC_KEY.LST < prev    next >
Encoding:
File List  |  1992-01-19  |  176 b   |  12 lines
  1. PROCEDURE function_key(VAR key%)
  2.   LOCAL xa%
  3.   key%=0
  4.   xa%=BIOS(1,2)
  5.   IF xa%
  6.     xa%=INP(2)
  7.     IF xa%>186 AND xa%<197
  8.       key%=xa%-186
  9.     ENDIF
  10.   ENDIF
  11. RETURN
  12.